home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / TELEFINDER / TF Macro Tool 1.1B1.cpt / Connect 2400 < prev    next >
Text File  |  1992-04-02  |  954b  |  57 lines
  1.  
  2. * This is a very simple script that you can use
  3. * with any Hayes compatible 2400 baud modem.
  4.  
  5.  
  6. * set the naud rate to 2400 bps and
  7. * turn flow control OFF.
  8.  
  9. BAUD 2400;
  10. FLOW 0;
  11.  
  12. * Send a carriage return to flush
  13. * the modem's command buffer.
  14.  
  15. TYPE "^M"
  16. PAUSE 1;
  17.  
  18. * Set our prompt wait time to three seconds.  Keep sending
  19. * AT&F until the modem responds with OK.
  20.  
  21. * NOTE ^M sends a carriage return.
  22.  
  23. PROMPSEC 3;
  24.  
  25. modemset:
  26. TYPE "AT&F^M"
  27. PROMPT "OK"
  28.  
  29. FALSE "modemset"
  30.  
  31. * Let the modem clear.
  32. * Type out the ATDT command and phone number.
  33.  
  34. PAUSE 1;
  35. TYPE "ATDT730-5785^M"
  36.  
  37. * Re-set the prompt wait time to 45 seconds ( was 3 three seconds ).
  38. * look for a connect message.
  39.  
  40. PROMPSEC 45;
  41. PROMPT "CONNECT"
  42.  
  43. * Quit if we don't get the CONNECT message
  44. FALSE "finish"
  45.  
  46. * Otherwise tell TeleFinder/User that we're connected so
  47. * that the program will log the user on.
  48.  
  49. CONNECT 1;
  50. END
  51.  
  52. * make noise to tell the user it didn't work.
  53. finish:
  54. BELL
  55. CANCEL
  56. TYPE "^M"
  57. END